COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "SHOW2"
C00005 ENDMK
C⊗;
BEGIN "SHOW2"
REQUIRE "VIXNIC.SAI[VIS,HPM]" SOURCE_FILE;
REQUIRE "WIXNIC.SAI[VIS,HPM]" SOURCE_FILE;
INTEGER I,J,K,L,M,LOX,LOY,HIX,HIY,FOO;
STRING INPS,FILN;

DDINIT;

WHILE TRUE DO
   BEGIN
   REAL CX,CY,SIZ;

   DRKEN; RECTAN(-1000,-1000,1000,1000);
   OUTSTR("FILES:"); FILN←INCHWL;

   LOX←LOY←0; HIX←HIY←3;
   
   CX←(LOX+HIX+1)/2;  CY←(LOY+HIY+1)/2;
   SIZ←(HIX-LOX+1) MAX (HIY-LOY+1); SIZ←SIZ/2;
   
   SCREEN(CX-SIZ,CY+SIZ,CX+SIZ,CY-SIZ);

      BEGIN
      INTEGER ARRAY PIC[0:PFLDIM(FILN&".00[AER,HPM]")];
      INTEGER X,Y;
      
      FOR I←0 STEP 1 UNTIL 5 DO FOR J←0,0,0,0,0 DO DPYUP(SYNMAP(I));

      FOR I←5 STEP -1 UNTIL 0 DO
         BEGIN
         DRKEN; RECTAN(-1000,-1000,1000,1000);
         FOR X←LOX STEP 1 UNTIL HIX DO
         FOR Y←LOY STEP 1 UNTIL HIY DO
            BEGIN
            GETPFL(FILN&"."&CVS(Y)&CVS(X)&"[AER,HPM]",PIC[0]);
            DRKEN; RECTAN(X,Y,X+1,Y+1);
            VID(X,Y,X+1,Y+1,PIC[0],1 ASH (I+3));
            OUTSTR("["&CVS(Y)&","&CVS(X)&"] ");
            FOR J←0,0,0,0,0 DO DPYUP(SYNMAP(I));
            SHOWA('47);
            END;
         END;
      END;
   END;

END;